perm filename LIBMAC.OND[PAS,SYS]1 blob sn#371172 filedate 1978-09-07 generic text, type T, neo UTF8
  1) U:LIBMAC.MAC[PAS,EJG] and 2) LIBMAC.MAC[1,KO]	8-01-78 17:15	pages 1,1

**** File 1) U:LIBMAC.MAC[PAS,EJG], Page 29 line 98
1)		IDPB	AC0	,FILBTP(REG)	    ;DEPOSIT CHARACTER IN OUTPUT BUFFER
**** File 2) LIBMAC.MAC[1,KO], Page 27 line 98
2)		CAIN	AC0	,"←"
2)		MOVEI	AC0	,30		    ;Ko: convert to Stanford underbar
2)		IDPB	AC0	,FILBTP(REG)	    ;DEPOSIT CHARACTER IN OUTPUT BUFFER
***************


**** File 1) U:LIBMAC.MAC[PAS,EJG], Page 29 line 114
1)		IDPB	AC0	,FILBTP(REG)	    ;DEPOSIT IN OUTPUT BUFFER
**** File 2) LIBMAC.MAC[1,KO], Page 27 line 116
2)		CAIN	AC0	,"←"
2)		MOVEI	AC0	,30		    ;Ko: convert to Stanford underbar
2)		IDPB	AC0	,FILBTP(REG)	    ;DEPOSIT IN OUTPUT BUFFER
***************


**** File 1) U:LIBMAC.MAC[PAS,EJG], Page 30 line 137
1)		CAIE	AC0	,12		    ;LINE FEED?
1)		JRST	GETCNT			    ;NO - FORGET IT
1)		AOS	FILEOL(REG)		    ;SET EOLN
1)		SETZ	AC1	,		    ;CLEARS CHARACTERCOUNT
**** File 2) LIBMAC.MAC[1,KO], Page 28 line 137
2)		CAIN	AC0	,12		    ;LINE FEED?
2)		JRST	GETLF
2)		CAIN	AC0	,30		    ;This is the stupid Stanford underbar
2)		jrst	getsbr			    ;Stanford '←'
2)		jrst	getcnt			    ;ignore it 
2)	GETLF:	AOS	FILEOL(REG)		    ;SET EOLN
2)		SETZ	AC1	,		    ;CLEARS CHARACTERCOUNT
***************


**** File 1) U:LIBMAC.MAC[PAS,EJG], Page 30 line 144
1)	GETTAB: TLNE	AC1	,7		    ;IS THIS TAB ON
**** File 2) LIBMAC.MAC[1,KO], Page 28 line 147
2)	getsbr:	movei	ac0	,"←"		    ;convert Stanford underbar to '←'
2)		jrst	getnew
2)	GETTAB: TLNE	AC1	,7		    ;IS THIS TAB ON
***************


**** File 1) U:LIBMAC.MAC[PAS,EJG], Page 39 line 72
1)		CAIN	AC0	," "		    ;LEADING BLANKS
1)		JRST	GTSGN			    ;YES - OVERREAD THEM
**** File 2) LIBMAC.MAC[1,KO], Page 37 line 72
2)		CAIE	AC0	," "		    ;LEADING BLANKS
2)		CAIN	AC0	,","		    ;AND LEADING COMMAS TOO
2)		JRST	GTSGN			    ;YES - OVERREAD THEM
***************